home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / talkfun.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-07-27  |  10.8 KB  |  99 lines
  1. 10  CLS:KEY OFF
  2. 20  CLEAR ,&H8000:TALK=&HE000:DIM A$(36)
  3. 30  FOR I=0 TO 71:READ J:POKE TALK+I,J:NEXT I
  4. 40  DATA &H55,&H8B,&HEC,&H8B,&H76,&H6,&H8A,&H4,&H8A,&HC8
  5. 50  DATA &H46,&H8B,&H3C,&H8A,&HE9,&HE4,&H61,&H24,&HF7,&HE6,&H61
  6. 60  DATA &H8A,&H3D,&H80,&HFF,&H20,&H74,&H25,&HB6,&H6,&HFE,&HC6
  7. 70  DATA &HD0,&HE7,&H32,&HE4,&HD0,&HE7,&HD0,&HD4,&HD0,&HD4,&HE4
  8. 80  DATA &H61,&H24,&HFC,&H2,&HC4,&HE6,&H61,&HB3,&H25,&HFE,&HCB
  9. 90  DATA &H75,&HFC,&HFE,&HCE,&H75,&HE6,&H47,&HFE,&HCD,&H75,&HD4
  10. 100  DATA &H5D,&H58,&H5B,&H59,&H53,&H50,&HCB
  11. 110  A$(1)="<UNK! {00F8}><UNK! {0080}>LET<UNK! {0080}>NEXTBLOADXORRETURNREADEND<UNK! {0080}>SAVEREADNEXT<0xE1!><0xE0!>SYSTEMMOTORXORLINE<0x9F!>END<0xE0!><UNK! {00F8}>STOPREMCLSXORLOAD<UNK! {0080}><0x9F!>CLSLINELOADRUNREMCLSOUTLLISTREADREM<0xE0!>OUTREMENDREADXORREADREADCLS<0xE1!>XORNEXTBLOAD<0xE0!><UNK! {00F8}>SYSTEMBLOADXOR<UNK! {00F8}>LEFT$<0xE3!>XOR<UNK! {00F8}>COLORNEXT<0xE3!>XOROPTIONLEFT$<0xE1!>XORLOADCOLOREND<0xE1!><UNK! {00F8}>OUTCOLORMOTORXOR<UNK! {00F8}>LLIST<0x9F!>CLSXOR<UNK! {00FC}>RETURN<0x9F!><0xE0!><UNK! {00F8}>SAVEREADREM<0xE0!><UNK! {00F8}>LOADREMREM<0xE0!><UNK! {00F8}>LLISTREADPRESET<0xE0!>LOAD<0x9F!>READBLOADXORLOAD<0x9F!>READ<0xE1!>XORSAVEREMNEXT<0xE1!>XORSAVEREMNEXTEQV<0xE0!>LOADREMBLOAD<UNK! {00F9}>CLS<UNK! {00F8}><0x9F!>READ<UNK! {00F6}>END<UNK! {00F8}>SAVEREAD<UNK! {00FC}>NEXTXOR<UNK! {00FC}>REMXORREMMOTOR<UNK! {00F8}>COLORCLSSAVENEXTXOR<UNK! {00FC}>END<UNK! {00F8}><0x9F!>PRESETXORREMCLS<UNK! {00FC}>SAVEEND<UNK! {00FC}>REM<UNK! {00F7}><0xE0!><0x9F!>CLS<UNK! {FFFE}>END<UNK! {00FC}>READ<UNK! {FFE0}><0x9F!>CLS<UNK! {FFFC}>NEXT<UNK! {00F8}>REM<UNK! {FF80}>COLORNEXT<UNK! {FFF0}>READ<0xE0!><UNK! {FFFC}>NEXT<UNK! {00F8}><0x9F!><UNK! {FF80}><UNK! {00FC}>REM<UNK! {FF80}>LOADREM<UNK! {FF80}>OUTREM<UNK! {FF80}>OUTREM<UNK! {FF80}>DATAREM<UNK! {FF80}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FFF8}>"
  12. 120  A$(2)="<UNK! {FE80}>POKERESTOREEND<UNK! {00FC}>NEXT<UNK! {FFF0}>NEXTXORREM<0xE3!>CLS<0x9F!>CLSLOADRETURNEND<UNK! {00FC}>NEXTXOR<UNK! {00F8}>READXORREMREADCLS<0x9F!>CLSLOADLLIST<UNK! {0080}><UNK! {00FC}>END<0xE0!><UNK! {00FC}>NEXT<UNK! {00F8}>NEXTMOTORXORREADXORREADNEXT<0xE0!>REM<0xE0!>LLISTREADCLS<0x9F!>CLSOUTREM<UNK! {0080}>COLOR<UNK! {0080}>OPTION<0x9F!><UNK! {0080}>SAVE<UNK! {0080}>XORSAVE<UNK! {0080}><UNK! {00FC}>END<0xE0!><UNK! {FE80}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}>SAVE<UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {FE80}><UNK! {0080}>SAVE<UNK! {0080}><UNK! {FF80}><UNK! {0080}>LLIST<UNK! {0080}>COLOR<UNK! {0080}>DATARETURN<UNK! {0080}>COLOR<UNK! {0080}>OUTRESTORE<UNK! {0080}><UNK! {FE80}>OUTPOKE<UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {00FC}>STOPNEXT<UNK! {00F8}>END<0xE1!><UNK! {0080}>REMCLSREM<UNK! {0080}><UNK! {0080}>SAVE<UNK! {0080}><UNK! {00F8}><UNK! {0080}>READ<0xE0!>RESTORE<UNK! {0080}><UNK! {0080}>OPTION<UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}>NEW<UNK! {0080}><UNK! {0080}><UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}><UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}><UNK! {0080}>RUN<UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR"
  13. 130  A$(3)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>GOTO<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM\<UNK! {0080}>READ<UNK! {00F8}>COLOR<UNK! {0080}>NEXT<UNK! {00FC}><0x9F!><UNK! {FE80}>SAVEREAD<UNK! {FF80}>REMMOTOR<UNK! {FFE0}>READXORCOLOR<UNK! {00F8}>NEXT<UNK! {00F8}><0x9F!><UNK! {00FC}><UNK! {0080}>SYSTEM<UNK! {FF80}><0x9F!>CLS<UNK! {FFF0}>READ<UNK! {00F8}>REM<UNK! {FE80}>COLOREND<UNK! {FFE0}>READ<UNK! {00F8}>REM<UNK! {FE80}>COLORCLS<UNK! {FFF0}>NEXT<UNK! {00FC}>NEXT<UNK! {FE80}>COLORCLS<0x9F!><UNK! {00F8}>ENDFILES<UNK! {FFE0}>READ<UNK! {00F8}>READ<UNK! {FF80}><0x9F!><0xE0!><0x9F!><UNK! {FE80}>COLOR<UNK! {0080}>COLOR<UNK! {00F8}>ENDFILES<UNK! {FFF0}>NEXT<UNK! {00FC}>END<UNK! {FFE0}>REMXORNEXT<UNK! {FF80}><0x9F!><0xE0!>READ<UNK! {FF80}><0x9F!>CLSREM<UNK! {FE80}>COLORCLSREM<UNK! {FE80}><UNK! {FF80}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FF80}>REM<UNK! {00F8}>END<UNK! {FE80}>DEFXORREAD<UNK! {00F8}>NEXTPRESETCLS<0x9F!><0xE0!>OUTLLIST<UNK! {0080}><UNK! {FE80}>XORXORREADXORREMRETURN<UNK! {0080}>SAVEENDXORXORREADCLS<UNK! {0080}>RETURN<UNK! {0080}>OPTIONFOR<UNK! {0080}>CLSNEXT"
  14. 140  A$(4)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9A!><UNK! {0080}>GOSUB<UNK! {0080}>NEXTXOREND<UNK! {00F8}>CLSREM<0xE0!>REMCLSEND<UNK! {FE80}><UNK! {00FC}>WIDTHREMXORREMIMP<UNK! {0080}><UNK! {FF80}><UNK! {FFB0}>READXORREAD<UNK! {00FB}><UNK! {0080}><UNK! {FF80}>COLORPOKEREAD<UNK! {00F8}>END<UNK! {00FA}>CLSREMCLSREM/NEXT<UNK! {00FC}><UNK! {0080}><UNK! {FDA0}>REMXORNEXT<UNK! {FDC0}><0x9F!>CLSREM<UNK! {FE80}>SAVE<UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {FFB0}>READ<UNK! {00F8}>END<UNK! {00FC}>XORREMXORNEXT<UNK! {00F8}>CLS<0x9F!>CLSREM<0xE3!><UNK! {0080}><0x9F!><UNK! {0080}><0x9F!>STRING$<UNK! {0080}>SAVE<UNK! {0080}>COLORDEFSTR<UNK! {0080}><UNK! {00FC}><UNK! {0080}>MKDIREND<UNK! {00F8}>END<UNK! {00FC}>WIDTHREADXORNEXT<UNK! {00F8}><UNK! {0080}>REM<0xE0!>REM<0xE0!><UNK! {0080}><UNK! {FE80}>PENNEXT<UNK! {00F8}>NEXT<UNK! {FF80}><0x9F!>CLS<0x9F!><UNK! {00F8}>END<UNK! {00FC}>END<UNK! {FF80}><0x9F!>CLSREADXORNEXT<UNK! {00F8}>END<UNK! {FE80}>SAVE<UNK! {0080}>COLOR<UNK! {0080}>REMCLS<UNK! {0080}><UNK! {0080}>NEXT<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>OPTION<UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR"
  15. 150  A$(5)="<UNK! {00FC}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><0x9F!><UNK! {0080}>REMCLSREM<0xE0!>READ<0xE0!>READXORNEXT<UNK! {00F8}>NEXT<UNK! {00F8}>END<UNK! {00FC}>END<UNK! {00FC}><UNK! {0080}>FILES<UNK! {FE80}>SAVE<UNK! {0080}><UNK! {FE80}>COLOR<UNK! {0080}>COLORCLSREM<0xE0!>REMXORNEXT<UNK! {00F8}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {FF80}><UNK! {FFC0}>REMXORREM<UNK! {00F8}>NEXT<UNK! {00FC}>NEXT<UNK! {FE80}>COLORCLSCOLOR<0xE0!>READXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLS<0x9F!><0xE0!>READ<UNK! {00F8}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FF80}><0x9F!><0xE0!>REMXORNEXT<UNK! {00FC}>END<UNK! {FF80}>COLORCLS<0x9F!><0xE0!>READXORNEXT<UNK! {00FC}>END<UNK! {FE80}><UNK! {FF80}><0x9F!>CLSCOLOR<0xE0!>REM<0xE0!>REM<UNK! {00F8}>NEXTXORREAD<UNK! {00F8}>END<UNK! {00F8}>END<UNK! {00FC}><UNK! {0080}>SAVE<UNK! {0080}>LINE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA"
  16. 160  A$(6)="<0xE0!><0xE0!><0xE0!>XORPOKEOPTIONELSEPRESETNEXTREADDIMRETURN<UNK! {00F8}>LINEXORBLOADSTEPREADREMRESTOREOUT<UNK! {00F8}>LINE<UNK! {00F8}><0xE1!>=BLOADREADDIMLLIST<UNK! {00FC}>POKE<UNK! {00F8}><0xE1!>=BLOADREADDIMOUT<UNK! {00FC}>LINE<UNK! {00F8}><0xE1!>ORBLOADREADOUTCALL<UNK! {00F8}><0xE1!>MODPSET<0x9B!>DIMRETURNOPTIONMODOPTION<0xE1!>BLOADRETURNCLOSEDIMRESTORELINE<0xE3!><UNK! {00F8}>LINE=DIM<0x9F!>DIMOUT<UNK! {00F8}>ERROR<UNK! {00F9}>NOTERRORLETCOLORTHENNEWXOR<0xCB!><UNK! {00F8}>FNBLOADDIMSTEPBEEPRESTOREPOKESTOP<UNK! {00FC}>RESUME+<0xE1!>INKEY$<0xE2!>READ<0xE4!><0x9F!><UNK! {00F6}><UNK! {0080}>DIMREADEQVCLS<UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS"
  17. 170  A$(7)="CLS<UNK! {0080}>CLS<UNK! {0080}>TRON<UNK! {0080}>DATA<UNK! {0080}>CLSCLSWHILE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATABSAVEDEFSTRFORDATA<UNK! {0080}>RANDOMIZE<UNK! {0080}><UNK! {0080}>ENDSTOPINPUT\FORSCREENDATAENDLEFT$SWAPSTOPENDLEFT$<0xE0!><UNK! {0080}>ENDSYSTEM<0xE0!>STOPNEXT<UNK! {00FC}>READCLS<UNK! {0080}>REMXOR<0x9F!>END<UNK! {0080}><0x9F!><0xE0!>NAME<UNK! {0080}>LEFT$<UNK! {00FC}>LETENDFILES<UNK! {00F8}><UNK! {0080}>NEXT<UNK! {00FC}>NEXTXORWIDTHREAD<UNK! {00F8}>READXORCLSREM<UNK! {00F8}>READ<UNK! {00F9}>CLSREM<UNK! {00F8}>NEXT<UNK! {FDC0}>REM<UNK! {00F8}>NEXT<UNK! {FFC0}>READ<UNK! {00F8}>END<UNK! {FFE0}>READ<UNK! {00FC}>END<UNK! {FFE0}>READ<UNK! {00F8}>END<UNK! {FFC0}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00F8}><UNK! {0080}><UNK! {FFE0}>READ<UNK! {00F8}><UNK! {0080}><UNK! {FFC0}>REMXOREND<UNK! {FF80}><0x9F!><0xE0!>READ<UNK! {FE80}><UNK! {FF80}>COLORXORNEXT<UNK! {00FC}>END<UNK! {FFC0}><0x9F!><0xE0!>REM<UNK! {00F8}>END<UNK! {00FC}>END<UNK! {FE80}>LLIST<UNK! {0080}>OPTIONCLSREMCLSPOKE<UNK! {0080}><UNK! {0080}><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LET"
  18. 180  A$(8)="<UNK! {00FC}>READNEXT<0xE0!>XORKILLPRESET<0xE1!>XOR<UNK! {00FC}>REMREADBLOADXOR<UNK! {00F8}>LLISTREMBLOAD<0xE1!>XORLOADREMREADBLOAD<0xE0!><UNK! {00F8}>LOADREMREADNEXTXOR<UNK! {00F8}>SAVEPOKEREMPRESET<0xE0!><UNK! {00F8}><INKEY$READNEXT<UNK! {00F6}>ENDXOROPTION<0x9F!>LINEREMNEXTXOR<UNK! {FF80}><UNK! {00FC}>REMPRESETXORREMMOTOR<UNK! {00F8}><UNK! {00FC}>NEXT<UNK! {00F8}><0x9F!><0xDF!>CLSOUTNEXT<UNK! {FFF0}>REMCLSDEFDBL<UNK! {00F8}>READ<0xE0!>INPUT<UNK! {00FC}>NEXT<UNK! {00FC}><UNK! {0080}><0xDF!><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {0080}>DATAELSEEND<UNK! {0080}>STOPDATALETBSAVE<UNK! {0080}>LETSTOPSTOPGOTODIMENDDATAWIDTHDATA<UNK! {0080}><UNK! {0080}>BSAVEDATACLSENDERASE<UNK! {0080}>LINEENDWIDTH<UNK! {0080}>BSAVESCREENLET<UNK! {0080}>SPC(BSAVELETLETCLS<UNK! {0080}>LETCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}>LPRINTWAIT<UNK! {0080}><UNK! {0080}>ERASELINE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>ERR<UNK! {0080}>RUNERRXORENDAUTOCLS<UNK! {0080}>DIMRETURN<UNK! {0080}><UNK! {0080}>DIM"
  19. 190  A$(9)="PRESET<UNK! {0080}>TRONWENDNEXTLET<0xB4!>PRINTCALLENDLETSAVERESTORE<<0xE2!>DIMDATATROFFIFOUTCLSSOUNDRESTOREMODTROFFOUTCALLFORPOKE'PSETLET<0xE3!>RESTORE/<0xE3!>RESTORE<0xE3!>RESTOREDEFSTR<0xE3!>LETBSAVEPOKE<UNK! {00F9}>>OUTBLOADPOKE<UNK! {00F9}><0xE3!>RESTORE<0xE1!>RESTORE/<0xE0!>PSETBSAVERESTORELOAD<0xE0!>DIMTROFFDIMLLISTLINEFORWHILEBLOADRUNPOKE<UNK! {0080}>POKE+PRESETTOENDRESTOREOUT<0xE2!>><UNK! {0080}>ERRORRESTOREPOKEEQVCLSPRINTPSETDIMDATALINEDATAWHILESCREENMOTORTOENDRESTORELISTPOKECALLBSAVE<UNK! {0080}><UNK! {0080}>TROFFDIMOPTIONPSETPOKEGOTOBLOADWAITENDTOTRONLINE<0xE3!><UNK! {0080}>ELSEMOTORRUN<0xB4!><0xE0!>DATALINETROFFLOCATEOUTSTOPSCREENUSR<0xE1!>PSETFORLETOPTIONWHILEEQVBSAVEDATALET<0xB4!>LINEMOTORDIMLETOPTION<UNK! {00F8}>WIDTHRETURNSTOPXOR<UNK! {00F8}>STOP<0x9F!><UNK! {0080}>LINELOADLETREM<UNK! {0080}><UNK! {00F8}>OPTIONOUTREMCLSXOR<UNK! {00FC}>RETURNREMEND<0xE0!><UNK! {00F8}>OUTLLISTREADMOTORXOROPTIONXORLLISTREADENDEQV<UNK! {0080}>XOROPTIONREADLETREMNEXTCLSRANDOMIZE<UNK! {0080}>XOROPTIONREAD<UNK! {0080}>RETURNREAD<UNK! {0080}>LINEEND<UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXTCLS<UNK! {0080}><UNK! {0080}>ENDCLS<UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH"
  20. 200  A$(10)="FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FORLETENDSOUNDWIDTH<UNK! {0080}>STOPFORSWAPCLEAR<END<UNK! {00FC}><UNK! {0080}>ERLSTOPNEXT<UNK! {00FC}>READXORXORNEXT<UNK! {00F8}>REM<0xE1!>XOR<0x9F!><0xE0!>COLORREADCLSCOLORNEXT<UNK! {00F8}>SAVEEND<UNK! {00FC}>REMBLOAD<UNK! {00FC}>READ<0xE0!><UNK! {00FC}><0x9F!>LETREMMOTORXOR<UNK! {00FC}>LINE<0x9F!>READ<0xE1!><UNK! {00F8}>XORLLISTREMMOTORXOR<UNK! {00F8}>LLISTREMNEXT<0xE1!><UNK! {00F8}>LLISTREADBLOAD<0xE1!><UNK! {00FA}>NEXT<0xE3!>XOR<UNK! {00F8}>LOAD<UNK! {0080}><UNK! {00F8}>LOADLLISTREMPOKELLISTREMREADBLOAD<UNK! {00F6}>READPRESET<0xE1!>XORCVI<0xE1!><UNK! {00F8}><UNK! {00F8}>COLORENDXOR<UNK! {00F8}>LOAD<0x9F!><0xE0!><UNK! {00F8}>LOADLLISTREADUSRLOADLLISTREMNEXT<UNK! {00F8}>LLISTREMREADMOTOR<UNK! {00F8}>LLISTREMBLOAD<0xE1!><UNK! {00FC}>READPRESET<0xE1!>XORLOADREADBLOADXORXORSAVENEXT<0xE1!><UNK! {00F8}>LOADLLISTENDXOR<UNK! {00FC}>LLISTREADEND<UNK! {00F8}>SAVEREADREAD<UNK! {0080}><UNK! {00F8}><0x9F!>READ<0xE3!><UNK! {0080}><UNK! {00FC}><0x9F!>NEXT<0xE3!><UNK! {0080}><UNK! {00F8}><0x9F!>NEXT<UNK! {00FC}>ENDXOR<UNK! {00FC}>REM<0xE0!>REMMOTOR<UNK! {00F8}>COLOR<UNK! {0080}><UNK! {00FC}>REMMOTOR<UNK! {00F8}>READ<0xE0!><UNK! {00FC}><0x9F!><UNK! {0080}><UNK! {00FC}>REMBLOAD<0xE0!><0x9F!>NEXTXOR<UNK! {00F8}>READ<0xE1!><UNK! {00FC}>SAVE<UNK! {0080}><UNK! {00F8}>COLORCOLOR<UNK! {0080}>XORCOLOR<UNK! {FE80}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}><UNK! {0080}>COLOR<<UNK! {0080}><UNK! {0080}>COLOR<0xE0!><UNK! {0080}><UNK! {0080}>COLOR<0xE0!><UNK! {0080}><UNK! {0080}>COLORWIDTH<UNK! {0080}><UNK! {0080}>OUT"
  21. 210  A$(11)="CLSDIM<UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLSSTOPSTOP<UNK! {0080}><UNK! {0080}>POKE<UNK! {0080}><UNK! {0080}>READ<UNK! {FFFC}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {00F8}><UNK! {0080}>END<UNK! {FE80}><UNK! {FEFC}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>FOR<UNK! {FFE0}>NEXT<UNK! {00F8}>READ<UNK! {FFF9}>XOR<0x9F!>PRESETXOR<UNK! {00FA}>END<UNK! {00F8}>SAVE<0x9F!>XORLLISTREM<0xE3!><UNK! {00FB}>ENDXOR<UNK! {00FC}>COLORPOKEREMREAD<0xE1!><UNK! {00F9}><0xE0!>LOAD<0x9F!>READPRESETENDXOR<UNK! {00FC}>LLISTLLISTNEXT<0xE3!>XOR<UNK! {00F8}>LOADREMREADBLOADXOR<UNK! {00F8}>RETURNREMPRESET<0xE1!><UNK! {00F8}>LLISTREMREADNEXTXORLLIST<0x9F!>REMNEXT<UNK! {00F8}>RETURNREMREADBLOAD<UNK! {00FC}>READREADBLOAD<0xE1!>MID$<0xE3!><0xE1!>XOR<UNK! {FFC0}>XOR<UNK! {00F8}>OPTIONCOLORXORLOADSAVELLISTREAD<UNK! {00FC}>RETURNREMREADBLOAD<UNK! {00FC}>READPRESETMOTORXORLEFT$EQV<UNK! {00F8}>LOAD<0x9F!><0xE0!>OPTIONSAVEREMREAD<UNK! {00FC}>REMREAD<0xE1!>XORLEFT$XOR<UNK! {00F8}>LLISTREADXORLLISTREMBLOAD<0xE1!><UNK! {00FC}>REM<0xE3!>XORLOADREMEND<UNK! {00F8}>SAVEREAD<0xE3!><0xE0!>SAVEREAD<0xE0!><UNK! {FEF0}>REM<0xE1!><UNK! {00F8}><0x9F!><UNK! {00F8}>READXOR<UNK! {00FC}>REM<UNK! {00FC}>NEXTXORSAVEREAD<UNK! {00F8}>NEXTXORSAVEREADXORREM<0xE0!><UNK! {00FC}>REM<0xE0!><0x9F!>MOTOR<UNK! {00F8}><0x9F!><UNK! {0080}>SAVENEXTXOR<UNK! {00FC}>END<UNK! {00F8}><0x9F!>READXORREAD<0xE1!><UNK! {00F8}>COLOR<UNK! {0080}><0x9F!>READ<UNK! {FFF0}>END<0xE3!>"
  22. 220  A$(12)="CLS<0xE0!><UNK! {0080}>READENDBLOADBLOAD<UNK! {0080}>READENDBLOADBLOADNEXTREMENDBLOADBLOAD<UNK! {0080}>RESTOREENDBLOAD<0xE1!><UNK! {0080}>DIM<UNK! {0080}><0xE1!><0xE1!>BSAVERETURN<UNK! {0080}>LINEEQV<0xE3!>REM<UNK! {0080}>LINE<UNK! {00F9}><0xE0!>BLOADDATAPOKELINE<0xE0!>BLOAD<0xE2!>RESTOREPOKELINEELSE<UNK! {00FB}>RETURNRESTOREOPTIONPRINTMERGEREADRETURNOUTLINETAB(PRESETPRESETRESTORELETERRORTROFFBSAVERESTOREDATAERROR<0xE1!>BLOADBLOADFORCONTINSTR<0xE0!><0xE0!><0xE0!>DATA<UNK! {00F8}>LINEOPTIONPOKE<0xE0!>LOADOUTOUTDEFSTRWHILELLISTRETURNDIM<0x9A!>RESTOREORREADNEXTSOUNDDIMCALLREADNEXTBSAVENEXTOUTBLOADMOTOR<0xE1!><UNK! {0080}>TAB(<0xE1!><0xE0!>XOR<0xE0!>CALL<0xE0!>XOROPTIONLINEREM<0xE0!>XORLOADPOKEREADXOR<UNK! {00F8}>OUTRESTOREREADXOR<UNK! {00F8}>LLISTRETURNREAD<0xE0!>XORLOADRETURNREAD<0xE1!>XORLOADRETURNREADMOTORXORLOADREMREADMOTORXORLOADREMREADNEXT<0xE0!>OPTIONRETURNDIMREADCLSXOROUTOUTREMNEXT<0xE0!>LINE<0xE0!><UNK! {00F8}>REMEND<0xE3!>NEXT<0xE0!>LOADREADSCREENREMEND<0xE0!>LLIST<UNK! {0080}><UNK! {00F8}>RETURN<UNK! {0080}><UNK! {00FC}>READEND<0xE0!>RESTORE<0xE0!>XOROUTEND<UNK! {00F8}>LETREAD<UNK! {0080}>READBLOADEND<0xE0!><UNK! {0080}>XORDATASTOP<UNK! {0080}>LOAD<UNK! {0080}>DATA<UNK! {0080}>CALL<UNK! {0080}><UNK! {0080}><UNK! {0080}>GOTO<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}>ENDRESTORE"
  23. 230  A$(13)="<0xE0!>NEXTNEXTBLOADREAD<UNK! {0080}>OUTOUTRESTORERESTORE<UNK! {0080}>RESTORELLIST<UNK! {0080}>GOSUBSOUNDRETURNLLISTLETNEXTMOTORNEXTPRESETBSAVE<UNK! {0080}><UNK! {0080}>LINE<0xE1!>EQVMOTORRESUMEDATARESTORELOADPOKEELSE<UNK! {0080}>MOTORREADBLOADDATAUSRDATAPOKEOPTIONSTOPTAB(<UNK! {0080}>NEXTREADSTOPGOTOCLS<UNK! {0080}><0xE1!>IMP<UNK! {0080}>INSTRDIMRESTOREOUTLINEERASE<UNK! {0080}>ELSEBLOADBSAVEDATA<UNK! {00F8}>POKEOPTION<UNK! {00F8}>STOPREMNEXTBEEPPRESETMOTORENDINSTRPOKEINSTR<UNK! {00FC}>LET<0x9F!>DIMREADREMCLS<0xE0!>XORCLS<UNK! {00F8}><UNK! {00FC}>READ<0xE0!>LETREADCLSCLSREADCOLORCLSCOLOR<UNK! {0080}><UNK! {0080}>SAVE<UNK! {0080}><UNK! {0080}><UNK! {FF80}>NEXT<UNK! {0080}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>REMXOR<UNK! {0080}>NEXT<UNK! {0080}>REM<UNK! {00F8}><UNK! {0080}>END<UNK! {0080}>REMXOR<UNK! {0080}>FOR<UNK! {0080}>REMXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FFC0}><UNK! {0080}>WIDTHEND<UNK! {FE80}><UNK! {0080}><UNK! {0080}>REMXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>COLORCLS<UNK! {0080}><UNK! {0080}>NEXT<UNK! {FF80}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><UNK! {0080}>END<UNK! {FFC0}><UNK! {0080}><UNK! {0080}>COLORSTEPCLSXORREMMOTOR<UNK! {00F8}>LLISTEND<UNK! {00F8}>SAVEREM<0xE0!>LOADREMMOTOR<UNK! {00F8}>REMNEXTXORSYSTEM<0xE0!><UNK! {00F8}><0x9F!><UNK! {0080}>XORSAVEREM<0xE0!>OPTIONREMPRESET<0xE0!>OUTREM=XOROUTREM=<0xE0!>RESTOREREM<UNK! {FFC0}><UNK! {0080}><0x9F!><UNK! {00FB}><UNK! {0080}><UNK! {0080}><0x9F!>\"
  24. 240  A$(14)="MOTOR=<0xE1!><0xE1!>=<UNK! {0080}>OR<0xE1!><0xE1!>=<UNK! {0080}>ORMOTORTROFFOREND<UNK! {FFC3}>BLOADTAB(ENDINTINPUTOUTINPUTSAVERETURNREMOPTIONINPUTRESETRETURN<UNK! {00F8}>IF<UNK! {00FC}>NEWLLISTXOR<0x9F!><UNK! {00F8}>OPTIONMERGELINE<0x9F!>XORXORLCOPYCOLOR<0xE0!>LINESYSTEMLEFT$<0xE0!><UNK! {00FC}>READ<UNK! {FE80}><0x9F!><UNK! {00FC}>END<UNK! {00FC}><UNK! {0080}><UNK! {FFF0}>READXORNEXT<UNK! {FFC0}>COLORCLSREMFILES<UNK! {00FC}><UNK! {0080}>COLOR<UNK! {00F8}>REMXORNEXT<UNK! {FFC0}>COLOR<UNK! {0080}><0x9F!><UNK! {00FC}>READ<UNK! {00F8}>END<UNK! {FFE0}>COLORCLSREMFILES<UNK! {00FC}><UNK! {0080}><UNK! {FFF0}><0x9F!><0xE0!>READFILES<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}><0x9F!>CLSREAD<UNK! {00FC}>READ<UNK! {00F8}>ENDLEFT$<UNK! {FE80}>COLORXOR<0x9F!>CLSREM<UNK! {00FC}>REMXORENDMID$<UNK! {00FC}><UNK! {0080}><UNK! {FFE0}><UNK! {FE80}><0x9F!>XORCOLOR<UNK! {0080}>REM<UNK! {00F8}><0x9F!><0xE0!>READPAINTXORNEXTFREXORNEXTSQRXORENDSQRXOREND<UNK! {FEC7}>XORENDSAVESTEPXORENDCOLOR<0xDF!>XOR<UNK! {0080}><UNK! {00FC}>COLOR<0xE0!>RESTORE<0x9F!><UNK! {FFC0}>POKE<0x9F!><UNK! {FF80}>CLS<UNK! {FFF8}>DIMNEXT<UNK! {FFE0}>RESTOREREM<UNK! {FFC0}>LINECOLOR<UNK! {FE80}>CLS<UNK! {FEFC}>NEXTNEXT<UNK! {FFF0}>DATAREAD<UNK! {FFE0}><UNK! {0080}>REM<UNK! {FF80}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}>END<UNK! {FFF0}><UNK! {0080}>READ<UNK! {FF22}>
  25. 250  A$(15)="XOROPTIONWIDTH<UNK! {0080}>NEXTNEXTDIMFOR<UNK! {0080}>RETURNRETURNRESTORE<UNK! {0080}>STOPOUTRETURNRESTORE<UNK! {0080}>WIDTHOUTRETURNLETDATAWIDTHOUTRETURNRESTOREDATA<UNK! {0080}>OUTRETURNRETURNDIM<UNK! {0080}>RETURNREADDIMNEXT<UNK! {0080}>READNEXTBLOADEND<UNK! {0080}>READEND<0xE1!>CLS<0xE0!>NEXTCLSXORXORWIDTH<UNK! {0080}>XOROPTIONOUTLET<UNK! {0080}>OPTIONRETURNNEXTDIM<UNK! {0080}>READNEXTMOTOR<0xE0!><0xE0!>WIDTHXOROPTIONOPTIONPOKERESTOREOUTREADDIMNEXTCLS<0xE1!><0xE0!><UNK! {00F8}>LINEPOKERESTORERETURNREADBLOADMOTOR<0xE0!>LINEXOROUTRESTOREREADNEXTBLOAD<0xE0!>XORLINERESTOREDATAREMNEXT<0xE1!><0xE0!>LINESTOPOPTIONRETURNREADEND<0xE0!>MOTORXORLOADRESTOREREADENDNEXT<0xE0!><UNK! {00F8}>OUTRETURNFORREADEND<0xE0!>POKEOUTDATARETURNNEXT<0xE0!>LINEOPTIONLETOUTREAD<UNK! {0080}><0xE1!><0xE0!>WIDTH<UNK! {00F8}>LLISTNEXTMOTORCLSENDXOROUTREADNEXTCLSNEXT<0xE0!>OPTIONRETURNNEXT<UNK! {0080}>READCLSXORRESTOREDIM<UNK! {0080}>REMEND<0xE0!>OUTRESTORE<UNK! {0080}>LLISTNEXT<0xE0!><UNK! {00F8}>OUT<UNK! {0080}>LOADREADCLSXOR<UNK! {0080}><UNK! {0080}><UNK! {00F8}>REM<UNK! {0080}>XOR<UNK! {0080}>ENDXORLLISTEND<0xE0!><UNK! {0080}>READ<0xE0!>LOADNEXTCLS<UNK! {0080}><0x9F!><UNK! {0080}>XORRETURN<UNK! {0080}>END<UNK! {00F8}>READEND<0xE0!><UNK! {0080}>SAVEEND<0xE0!>RESTORE<UNK! {0080}><0x9F!><UNK! {0080}><UNK! {00F8}>READ<UNK! {0080}><0x9F!><UNK! {0080}>OPTIONREAD<0xE0!><0x9F!>"
  26. 260  A$(16)="CLSPOKEGOTO<UNK! {00F8}><UNK! {0080}>END<UNK! {FFFC}><UNK! {0080}>ENDCLS<0x9F!>XOR<UNK! {0080}>REM<UNK! {FFFF}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REMXORREM<UNK! {0080}>COLOR<0xE0!><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {FFF0}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><UNK! {00FA}><0x9F!>CLS<0x9F!>MOTOR<UNK! {00FC}>END<UNK! {00FC}>REM<0xE0!>REM<0xE0!><UNK! {FF80}>COLORNEXT<UNK! {00FC}>END<UNK! {00FC}>READXORREADXOR<0x9F!>CLSREM<0xE0!>COLORCLS<0x9F!>CLS<UNK! {FFC0}><0x9F!>CLS<UNK! {FFC0}>REMCLSCOLOR<0xE0!>READ<0xE0!><0x9F!>XORNEXT<UNK! {00F8}>READ<UNK! {00FC}><UNK! {0080}><UNK! {FE80}><UNK! {FDC0}>REM<0xE0!>REMINSTRENDFILES<UNK! {00F8}><0xE0!>READ<UNK! {00F8}>NEXT<0xE0!><UNK! {0080}><0x9F!><0xE0!>READMOTOR<UNK! {0080}><0x9F!><0xE0!>READENDCLSREMXOR<UNK! {0080}><UNK! {0080}>STOPEND<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXTXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXTXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>ENDXOR"
  27. 270  A$(17)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}>END<UNK! {0080}><UNK! {0080}><UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}>COLORSTEPXORREAD<UNK! {00FC}>SAVE<UNK! {0080}><0x9F!><UNK! {FFF0}>NEXT<UNK! {FFFF}><UNK! {0080}><0x9F!><UNK! {00F5}><UNK! {00F8}>END<UNK! {FFAF}>CLSREM<UNK! {00FA}><UNK! {FE80}><UNK! {FEC3}>XORNEXT<UNK! {00F8}>DEFDBL<0xE0!><0x9F!><0xE0!><UNK! {FE80}>KILL<UNK! {00F8}>NEXT<UNK! {00F8}>REM<UNK! {00F8}>NEXT<UNK! {00F8}><0x9F!><UNK! {00F8}>NEXT<UNK! {00F8}><0x9F!><UNK! {00FC}>END<UNK! {00FC}>REM<UNK! {FF80}>MID$<UNK! {FFF0}>REMCLS<UNK! {00FC}>LEFT$<UNK! {00FC}>REM<0xE3!><UNK! {00F8}>READXORLOADREM<0xE0!><0x9F!>MOTORXOR<0x9F!><0xE0!><0x9F!>BLOAD<UNK! {00F8}>REM<UNK! {00F8}>READ<0xE0!><UNK! {00FC}>READ<UNK! {FF80}><UNK! {00FC}>READCLSCOLORLLISTEND<UNK! {00F8}>REM<UNK! {0080}>PALETTE<UNK! {0080}><UNK! {00FC}>READCLSOUTREAD<0xE0!>REMCLS<UNK! {0080}>NEXTSCREENLINE<UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}>END<UNK! {FFF0}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {FFDC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>OUT"
  28. 280  A$(18)="CLS<0xE0!>POKELOADLINE<UNK! {0080}>LLISTNEXTREMPSETLET<0x9F!>BLOADPRESET<0xE3!>DIMREMMOTOR<0xE3!>=RETURN<0x9F!>MOTORBLOAD<0xE3!>DIMREM<0xE1!><0xE3!><0xE3!>PRESETREMXOREQVEQV<0xE3!>PSET<UNK! {00F8}>OPTIONLOADXOR<0xE3!>LLISTRETURNRETURNPOKEOPTIONORBLOADNEXTTAB(RESTORECLOSEFNMOTOR<0xE3!>NEXTLPRINT<0xE4!>OPTIONOUT<0xE0!>CALLCONTPSETREADRESTOREDIMWRITEOPTIONXOREQVCLS>=PSETREADOUTRESTORECOLOR<UNK! {00F8}>LINEWHILEUSRMOTOROFFPRESETNEXT<0x9B!>POKE<0x9B!>TOLINERANDOMIZE<UNK! {00F8}>MOTORTO<0xE3!>NEXTKEYMOTORTHENANDOUTOUTRESTORERESTOREANDXOR<<0xE0!><0xE0!>>ORPSETPSETDIMDIMDIM<UNK! {00FC}>LOADOPTIONLINELINEERROR<0xE3!><0xE3!><0xE3!>NEXTFORSAVELLIST<0x9F!>OUTPOKE<0x9B!>EQVEQVEQVEQVBLOADPMAP<0x9F!>DIMRUN<0x9F!>MOTOR<0xE3!><0xE0!><0xE0!>ERRORXORLINE<UNK! {00F8}>POKE<0x9F!>XOROPTIONOUTRESTOREREM<UNK! {00F8}>OUTRETURNREADNEXT<UNK! {00F8}>RETURNREADNEXT<0xE1!><UNK! {00F8}>RETURNREADNEXT<0xE0!><UNK! {00F8}>RETURNREMREAD<0xE1!>XOROUTRETURNREMBLOAD<0xE0!>XORLOADLLISTLLISTREADNEXT<0xE0!>XORXORLOADLLISTREAD<UNK! {00F6}>NEXTNEXT<0xE0!><UNK! {FDE0}><UNK! {0080}>OPTIONCOLOR<UNK! {0080}><UNK! {0080}>END<UNK! {FF80}><UNK! {0080}>END<UNK! {FF80}><UNK! {0080}><UNK! {0080}>PEN<UNK! {0080}>END<UNK! {FE80}><UNK! {0080}>NEXT<UNK! {00FC}>"
  29. 290  A$(19)="<UNK! {00F8}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {00F8}>OPTIONOPTIONLINESAVEBLOADBLOADBSAVERUN/OUTOUTLINEMOD<0xE1!><0xE3!>PRESETREMSAVELLISTOUTOPTIONMODEQVMODBLOADPSET<0x9F!>PRESETRETURNOUTCONT<UNK! {00FC}>LINEEQVBLOADPRESET<0xE1!>PRESETPSETRETURNCOLORINPUTOUTPOKEMOD<UNK! {00FC}><0xB4!>XOR<0xE3!>STEP<0xE1!><0xE3!>PRESETRETURNCOLORGOSUBOUTPOKE<UNK! {00FB}><UNK! {00F8}>OPTIONLINESPC(MID$READLOCATEDEFDBLXOROPTIONLOAD<0x9F!>MID$BLOAD<0xE1!><UNK! {FFF0}>OUTOUT<0x9F!>ANDEND<UNK! {0080}>END<UNK! {FFE0}><UNK! {0080}>REM<UNK! {FFF0}><UNK! {0080}>READ<UNK! {FF80}><UNK! {0080}>OUT<UNK! {0080}><UNK! {0080}>NEXT<UNK! {FE80}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>NEW<UNK! {0080}><UNK! {0080}><UNK! {0080}>DIMEND<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORERL<UNK! {0080}><UNK! {0080}><UNK! {0080}>STOPENDSTOP<UNK! {0080}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>GOSUBBSAVE<UNK! {0080}><UNK! {0080}>STOPAUTOSTOP<UNK! {0080}>ENDERASELET<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}>WEND<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}>TRON<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}>DATAELSE<UNK! {0080}><UNK! {0080}><UNK! {0080}>INKEY$<UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}>LISTOPENFORNEW<UNK! {0080}><UNK! {0080}>WIDTHSTOP<UNK! {0080}><UNK! {0080}>END<UNK! {0080}>NEW<UNK! {0080}>RUNPOINT<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WAIT<UNK! {0080}><UNK! {0080}><UNK! {0080}>CLSEND<0xE0!><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>SWAP<UNK! {0080}><UNK! {0080}><UNK! {0080}>MOTOR"
  30. 300  A$(20)="CLS<UNK! {0080}>WIDTHMOTORMERGESTOPTOWIDTH<UNK! {0080}><UNK! {0080}>PRESETSTEP<UNK! {00F5}><UNK! {0080}><UNK! {0080}>COLORLOCATE<UNK! {0080}><UNK! {00FC}><UNK! {0080}>COLORXORDATA<UNK! {0080}>DIMREM<UNK! {0080}>COLOR<0xE0!><UNK! {0080}>READ<UNK! {FDC0}><UNK! {0080}><UNK! {0080}>READSCREEN<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {FFE0}>REMMOTOR<UNK! {FE80}><UNK! {00FC}>REMXORREADXORCOLOR<UNK! {0080}>COLOREND<UNK! {00F8}>NEXT<UNK! {00F8}>REM<0xE0!>REM<0xE0!>COLORCLS<0x9F!>CLS<UNK! {FE80}>SAVEEND<UNK! {FE80}>SYSTEM<UNK! {00FC}><UNK! {0080}><UNK! {00FC}>NEXT<UNK! {FE80}>SAVENEXT<UNK! {FF80}><0x9F!><UNK! {0080}><UNK! {FFE0}>READXORCOLOR<UNK! {00F8}>END<UNK! {00FC}>READ<UNK! {00F7}><UNK! {0080}><0x9F!><0xE0!>SAVEPOKEENDSYSTEMEQV<0xE0!>READXORREMMOTOR<UNK! {0080}><0x9F!><0xE0!>SAVEDIM<UNK! {0080}>COLORCLS<UNK! {00FC}>DIM<UNK! {0080}><UNK! {FF80}><UNK! {00FC}>RESTOREEND<UNK! {FE80}><UNK! {00F8}>RESTORE<UNK! {0080}><UNK! {FF80}>OPTIONRETURN<UNK! {0080}>COLORCLSOUTREM<UNK! {0080}>COLORCLSRETURNREADCLS<0x9F!><0xE0!>READNEXTCLSREMXORRETURNREAD<0xE0!>READXORRETURNREAD<0xE0!>REM<0xE0!>LLISTREADCLS<0x9F!>CLS<UNK! {00F8}>REM<UNK! {0080}>SAVENEXT<0xE0!>LOADNEXTXORLLISTNEXT<0xE0!><0x9F!>END<0xE0!>LOADEND<0xE0!>OPTIONREMCLS<UNK! {0080}>DIMEND<0xE0!><UNK! {0080}>ENDEND<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD<UNK! {0080}><UNK! {0080}><UNK! {0080}>XOR<UNK! {0080}><UNK! {0080}>END<0xE0!>"
  31. 310  A$(21)="<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLORCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {FFC0}>LET<UNK! {0080}><UNK! {0080}><UNK! {FFC0}>WAIT<UNK! {0080}><UNK! {0080}><UNK! {FF80}>SAVEWIDTHENDFILES<UNK! {00FC}>CLSREM<UNK! {00F8}>READ<UNK! {00FA}><UNK! {0080}>COLOR<0xE0!>COLOR<UNK! {00F8}>ENDFILES<UNK! {FFE0}>REM<UNK! {00F8}>REM<UNK! {FF80}>COLORCLS<UNK! {FFFC}>ENDSYSTEM<UNK! {FFF0}>REMXOR<0x9F!><UNK! {FFC0}>COLORCLS<UNK! {FFFE}>ENDSYSTEM<UNK! {FFFC}>NEXT<UNK! {00F8}>READ<UNK! {FFF8}>NEXT<UNK! {00F8}>REMOR<UNK! {00F8}>READ<UNK! {00F8}>READ<UNK! {00F7}><UNK! {00FC}>NEXT<UNK! {00F8}>READOR<UNK! {00FC}>END<UNK! {00FC}>READMOD<UNK! {FE80}>SYSTEM<UNK! {00FC}><UNK! {FF80}>COLORCLSLOAD<UNK! {FFE0}><0x9F!><0xE0!><0x9F!>REMXORREAD<UNK! {00F8}>READMOD<UNK! {00F8}>NEXT<UNK! {00FC}>NEXT<UNK! {FFFC}>NEXT<UNK! {00FC}>END<UNK! {00F9}><UNK! {00F8}>NEXT<UNK! {00FC}>END<UNK! {00F8}>XORREAD<UNK! {00F8}>READ<0xE1!>CLSREM<0xE0!>SAVE<UNK! {0080}><UNK! {0080}>SAVENEXTCLS<UNK! {0080}>NEXT<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {FFFC}><UNK! {0080}><UNK! {0080}>REMXOR<UNK! {0080}><UNK! {0080}>END<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>XOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD"
  32. 320  A$(22)="<UNK! {FFE0}><UNK! {0080}><UNK! {0080}><UNK! {0080}>READ<UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<<UNK! {0080}><UNK! {0080}><UNK! {0080}>NEXT<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}>READ<0xE5!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>SCREEN<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORSPC(<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WAITCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>RESUME<UNK! {0080}><0x9F!>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}>ENDDEFSNG<UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}>POKE<UNK! {0080}>ENDLIST<UNK! {0080}>INPUTMKD$DATA<UNK! {0080}>REM<UNK! {00FC}><UNK! {0080}>RESTORE<UNK! {0080}>REM<UNK! {00F8}>REMXOR<UNK! {0080}><0x9F!>XORCOLOR<0xE3!><UNK! {0080}><UNK! {FFC0}><UNK! {FFB8}>END<UNK! {00FC}>READ<UNK! {FFC0}><0x9F!><0xE0!>COLOR<UNK! {FE80}>LEFT$<UNK! {FFF8}>NEXTSYSTEM<UNK! {FFF0}>READ<UNK! {00FC}>READ<UNK! {FFE0}>READ<UNK! {00F8}>READ<UNK! {FFE0}>READ<UNK! {00F8}>READ<UNK! {FFF0}>READ<UNK! {00FC}>NEXT<UNK! {FFF0}>READ<UNK! {00FC}>NEXT<UNK! {FFF8}>END<UNK! {FE80}>COLOR<UNK! {FE80}><UNK! {FF80}>READ<UNK! {FF80}><0x9F!>XOREND<UNK! {FFF0}>NEXT<UNK! {00FC}><UNK! {0080}>COLOR<UNK! {00FC}><UNK! {0080}><UNK! {FFC0}>READ<UNK! {FFC0}>REMXOR<UNK! {0080}><UNK! {FFF0}>NEXT<UNK! {FE80}>READ<UNK! {FF80}>COLOR<0xE0!><UNK! {0080}>COLORXORNEXT<UNK! {00FC}><UNK! {0080}>READ<UNK! {FE80}>COLORCLS<UNK! {0080}>COLOR<0xE0!>REMXORSTOPREM<UNK! {00F8}>END<UNK! {00FC}>RETURNEND<UNK! {FE80}>COLORREADCLSCOLOR<UNK! {0080}><0x9F!>NEXT<0xE0!><0x9F!>CLSREADBLOADXORRETURN<UNK! {0080}>NEXTNEXTXORFOR<UNK! {0080}><UNK! {0080}>READXORRESTORE"
  33. 330  A$(23)="USR<UNK! {0080}><UNK! {0080}><UNK! {FE80}>LINEREAD<UNK! {00F8}>REMREADBLOADXOROPTIONOUT<0x9F!>SCREENOPTIONLOAD<0x9F!><0xE0!>XORXOR<UNK! {00FB}>EQV<0xE1!><0xE1!>=<0xE1!>EQVXORWRITEXOR<UNK! {00F8}><UNK! {00F8}>MERGE<UNK! {00F8}>LOADLLISTREMTAB(READBLOAD<0xE0!>XOR<UNK! {0080}>OPTIONWIDTH<UNK! {0080}>POKE<UNK! {0080}>REM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}>CLSNEXTXORLLISTREADBLOAD<UNK! {00F8}>REMBLOADXOR<UNK! {00FC}>NEXT<0xE1!><UNK! {00F8}><0x9F!>CLS<UNK! {00F8}>OUTREM<0xE0!>RETURNREADMOTOR<UNK! {00F8}>NEXT<0xE1!>XORCOLORCLSSAVEREADCLSSAVE<UNK! {0080}>FILESMOD<UNK! {00F8}>NEXT<UNK! {00F8}>NEXT<UNK! {FFC0}>REM<0xE0!>READ<UNK! {FF80}>COLORCLSREAD<UNK! {FE80}>COLORCLSREAD<UNK! {00FC}><UNK! {0080}><UNK! {FFC0}>NEXT<UNK! {00FC}><UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><UNK! {FD80}>READ<UNK! {00FC}><UNK! {0080}>REMXORNEXT<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {FE80}>WIDTHSAVE<UNK! {0080}><UNK! {FF80}><UNK! {0080}><0x9F!><UNK! {0080}><0x9F!>CLSRUNREMCLS<0x9F!><0xE0!>DIMREAD<0xE0!>READXORFORNEXT<UNK! {00F8}>NEXT<UNK! {00F8}>NEXTMOTOR<UNK! {00FC}>END<UNK! {00FC}>NEXTCLS<UNK! {FE80}><UNK! {00FC}>NEXT<0xE0!>COLOR<UNK! {0080}>SYSTEMXOR<0x9F!>CLSSAVENEXT<0xE0!><0x9F!><UNK! {0080}>SYSTEMXOR<0x9F!><UNK! {0080}>SYSTEM<0xE0!>SAVEEND<UNK! {00F8}>READCLS<UNK! {00F8}>READXORLLISTNEXT<0xE0!><0x9F!><UNK! {0080}><UNK! {00F8}>LLIST<UNK! {0080}><UNK! {00F8}>READ<0xE0!>XORREADCLSPOKEOUT"
  34. 340  A$(24)="XORLINE<0xE0!>SOUNDLOADPOKEXOR<0xE1!>PRESET<0xE1!>READRETURNRESTORECOLORDIMOUTOPTIONWHILE<UNK! {00FC}>POKEEQV<0xE1!>PRESETXOR<0xE3!>BLOADRETURN<0x9F!>BLOADREMRESTOREOPTIONSHELLPOKEEQV=EQVEQV<0xE1!>READIOCTLOUTIF<0x9F!>NEXTBLOAD<0xE0!>XOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD<UNK! {0080}><UNK! {0080}>XORNEXTRUN<0xE0!>OPTIONONWIDTHLET<UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORMOTORLETENDDATA<UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTHEND<UNK! {0080}><UNK! {0080}>ENDGOTOSTOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTHCLSFOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>END<UNK! {0080}>DEFINT<UNK! {0080}><UNK! {0080}>SWAP<UNK! {0080}>CLSLET<UNK! {0080}>DATACLS<UNK! {0080}><UNK! {0080}>DATAWIDTH"
  35. 350  A$(25)="<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LOAD<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {00FC}><UNK! {0080}>WIDTH<UNK! {0080}>WIDTHREADXORNEXT<0xE0!><0x9F!><UNK! {0080}>FILESXOR<0x9F!><UNK! {0080}><0x9F!>MOTOR<0xE0!>LOADREADMOTORXORLOADLLISTRETURNRESTORELLIST<0x9F!>READREADCLS<0xE1!><0xE3!>EQV<0xE3!>RETURNRETURNRESTORELLISTOUTWHILEBLOADXOR<0xE3!>EQVPSETPOKEMODRETURNLLISTPOKE<0xE3!>RETURNLINE<0xE3!>MODPSETRESTORE=RETURNDEFSNGOPTIONCONTTOOPTION<0xE3!>MODENDLET=PSETLLISTOPTIONPRINTRESTORE<UNK! {00F8}><0xE2!>=DIMCALL=RETURNRESTOREWHILESOUNDRANDOMIZEEQVBLOADTOPOKE=<0x9F!>POKERANDOMIZEMODRESTORECALLEQVREADLLISTLINE=SAVESTOPEQV=RESTOREWRITE<0xE2!>TAB(POKELINESTEPOPTIONRANDOMIZEMODPSETPOKETIME$POKELINENEXT<0x9F!>BLOADPRESETSTEPDIMREMXORXOREQV<0xE1!><0xE3!><UNK! {00F8}>LOADLOADOUTREADINSTROUT<0x9F!>READNEXTXORLLISTREMNEXTBLOADXORLOAD<0x9F!>READPRESETCLS<UNK! {00F8}>SAVEREAD<UNK! {00F8}>READ<0xE1!><UNK! {00F8}><0x9F!>CLSLOADREMMOTOR<UNK! {00FC}>NEXT<0xE0!><UNK! {00FC}>REMCLSLOADREMMOTOR<UNK! {00F8}>READMOTOR<UNK! {00F8}>LLISTENDXORLLISTREADCLSOPTIONREMNEXT<0xE0!>OUTREADMOTOR<UNK! {00FC}><UNK! {0080}><UNK! {0080}>OPTIONINPUT<UNK! {0080}><UNK! {0080}>DATAFOR<UNK! {0080}><UNK! {0080}>ENDANDCLS<UNK! {0080}><UNK! {0080}>DEFDBLCLS"
  36. 360  A$(26)="USR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>+<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>USR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>REM<0xE0!><UNK! {0080}>WIDTHSTOPREAD<0xE0!>OPTION<UNK! {FFE0}>REMCLS<UNK! {00FC}><UNK! {FFC0}><UNK! {00FC}>READBLOAD<UNK! {00FC}>NEXT<0xE1!><UNK! {00F8}>COLOR<UNK! {0080}>LOADLLISTREM><UNK! {00FC}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><0x9F!><UNK! {0080}>REMCLSREM<0xE0!>READ<0xE0!>READXORNEXT<UNK! {00F8}>NEXT<UNK! {00F8}>END<UNK! {00FC}>END<UNK! {00FC}><UNK! {0080}>FILES<UNK! {FE80}>SAVE<UNK! {0080}><UNK! {FE80}>COLOR<UNK! {0080}>COLORCLSREM<0xE0!>REMXORNEXT<UNK! {00F8}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {FF80}><UNK! {FFC0}>REMXORREM<UNK! {00F8}>NEXT<UNK! {00FC}>NEXT<UNK! {FE80}>COLORCLSCOLOR<0xE0!>READXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLS<0x9F!><0xE0!>READ<UNK! {00F8}>END<UNK! {FE80}><UNK! {FFC0}>REMXORREAD<UNK! {00FC}>END<UNK! {FE80}>COLORCLSREMXORREAD<UNK! {00FC}><UNK! {0080}><UNK! {FE80}>COLORCLS"
  37. 370  A$(27)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}>NEXTXOR<UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}>END\<UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>OPTION<UNK! {0080}>FOREND<UNK! {0080}><UNK! {0080}>LLIST<UNK! {0080}>FORWENDSTOPCLSCOLORCLS<UNK! {0080}><0xE0!>MOTOR<UNK! {0080}><UNK! {00FC}><UNK! {0080}>DIMCLSOUTREAD<UNK! {00F8}>ENDDEFINTELSEEND<UNK! {FE80}><UNK! {00F8}><UNK! {0080}>WIDTHCOLORCLSINKEY$<UNK! {0080}>XOR<0x9F!><0xE0!>COLORENDXOR<0x9F!>CLSCOLORENDLINE<0x9F!>CLSCOLORENDXOR<0xDF!><UNK! {0080}><UNK! {00FC}>INPUT<0xE1!>SAVEENDXORDEFBLOAD<UNK! {00FC}>IF<0xE4!>'NEXT<UNK! {00F8}>REMFOR<0xE1!><0xCB!><UNK! {00FA}>DEFSNGIFMOTORMOTOR<UNK! {00F8}><0x9F!>NEXTXOR<0xE0!>PAINTMOTOR<0xE4!><UNK! {00F8}><0x9F!>NEXTMOTOR<UNK! {00F9}>LLISTDEFFNXORSAVEDEFBEEPXORKILL>XORKILL<0xE0!><UNK! {00F8}>SAVEREADXOR<UNK! {00FA}>REMREADFORCOLORNEXTCLS<UNK! {00F8}><UNK! {00FC}>POKE<UNK! {00FC}>DIMNEXTNOTXOREQV<UNK! {00FC}>ANDRETURNDIMNEXTMOD<UNK! {00F8}><UNK! {00FC}><0xB6!><0x9F!>IFFN<UNK! {00F8}>XOROPTIONOUTRETURNRESUMEMKDIRRETURNREADPRINTNEXTRETURNPRESETENDBLOADXORPOKEWHILE\OPTIONRETURN<0x9F!>LET=REMTROFFCLSEQVXOROPTIONRESTOREOUTREADEND<0xE1!><0xE0!>OPTIONRESTOREOUTREADCLSEQVXOROPTIONRETURNRETURNEND<0xE0!>OPTIONOPTIONRETURNENDNEXT<0xE0!>OUTREADREADCLS<UNK! {0080}>LINELOADNEXTCLSMOTOR<0xE0!>"
  38. 380  A$(28)="<UNK! {FE80}><UNK! {0080}><UNK! {0080}><UNK! {0080}><0x9F!>CLSENDCLSREADCLSDIM<UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {0080}>END<UNK! {00FC}><UNK! {0080}>XORNEXTXORLLISTNEXT<UNK! {FE80}>SAVEREAD<0xE0!>LOADREM<UNK! {00F8}>REMMOTOR<UNK! {00F8}><UNK! {0080}><UNK! {00FC}>NEXT<0xE0!>SAVENEXTBLOADXORLLISTREAD<0xE1!><UNK! {00FC}>LLIST<0x9F!>BLOAD<0xE3!>XOR<0xE3!><0xE3!><UNK! {00F8}>EQV=RESTOREOPTIONANDPOKEMOD=RETURNDEFRESTORERESTORE<0xE3!>READIFTAB(RETURNCALLCALLKEYPSETPSETOPENRANDOMIZE<0xE1!><0xE3!>=RESTORESWAP\<0xE1!><0xE3!>TOPOINTOPTION<UNK! {00F8}><0xE1!>PRESETEDITLOAD<UNK! {00F8}>EQV=SOUNDLOADPOKEWHILE<UNK! {00F7}>LOCATELOADLLISTRESUMEWHILEMODDIM<0xCB!>DATAOUT<UNK! {00F8}><0xE1!>IMP<DIMINKEY$<UNK! {0080}>REM><UNK! {0080}>DIM<UNK! {00F8}>WIDTH<UNK! {FFE0}><UNK! {0080}>COLORCLSNEXT<UNK! {FE80}>READ<UNK! {00FC}><UNK! {0080}><0x9F!><UNK! {00F8}><UNK! {0080}><0x9F!>XORWIDTHCOLORXOR<UNK! {0080}>COLOR<0xE0!><UNK! {0080}>COLORUSR<UNK! {0080}><0x9F!><0xE0!><UNK! {0080}><0x9F!>XOR<UNK! {0080}>REM<UNK! {00F8}>FORNEXT<UNK! {FE80}>END<UNK! {FF80}>STOP<0x9F!><0xE0!><UNK! {0080}>REM<0xE0!>FOREND<UNK! {FE80}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}><0x9F!><UNK! {0080}><UNK! {0080}><UNK! {0080}>COLOR<UNK! {0080}><UNK! {0080}>RETURN<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}>GOTO"
  39. 390  A$(29)="CLS<UNK! {0080}>NEXTLETXOR<0xB5!><UNK! {0080}>END<UNK! {0080}><UNK! {0080}>WIDTHSCREENMOTORENDEND<UNK! {0080}>END<0xE0!><UNK! {0080}>BSAVECLSFORIMP<UNK! {0080}><UNK! {0080}>NEWENDELSESTOP<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DEF<UNK! {0080}>NEWLET<UNK! {0080}>READ<UNK! {00F8}>LLISTRENUM<UNK! {00F8}><0x9F!>MOTORXORCOLOR<0xE0!>KILLMOTOR<UNK! {00F9}>READ<UNK! {00F8}>LLISTREM\<0x9F!><0xE0!><UNK! {00F8}><0x9F!><0xE0!>COLORMOTORXORSAVE<0xE0!>MID$<0xE0!>INPSAVEMOTORXORSAVESCREEN<0x9F!><UNK! {0080}>\REMBSAVENEXTXORLLISTREMEQVWIDTHKILL<0xE0!><0xFD8A!>NEXTXORLLISTNEXTXORPOKEREM<0xE0!><UNK! {00FC}>READ<0xE0!>XORCOLOREND<UNK! {00F8}>REM<0xE0!>XOR<0x9F!>CLS<UNK! {00FC}><0x9F!>CLS<UNK! {00F8}>REM<0xE0!>OPTIONREM<0xE0!>LOADREADXOR<0x9F!><UNK! {0080}>KILL<0xE0!>LEFT$<UNK! {00FC}>READXOR<0x9B!>NEXT<UNK! {00FC}>NEXTXOR<0x9F!>CLSLINENEXT<UNK! {00FC}>NEXT<0xE0!><0x9F!><0xE0!><UNK! {0080}>ENDFILESXORREM<0xE0!>LINE<UNK! {0080}><0x9F!><0xE0!>RESTORE<UNK! {0080}><UNK! {00FC}><UNK! {0080}><UNK! {0080}>LINECOLORCLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>READ<UNK! {00FC}><UNK! {0080}><UNK! {0080}>ENDXOR<UNK! {0080}><UNK! {0080}><UNK! {0080}>POKE<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>XOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>DIM<UNK! {0080}><UNK! {0080}><UNK! {0080}>DATA"
  40. 400  A$(30)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>LINE<UNK! {0080}><UNK! {0080}>DATAENDWIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}>FORUSRWIDTH<UNK! {0080}>REM<0xE0!><UNK! {0080}>MOTOR<UNK! {00F8}>REMDATADIMREAD\ENDAUTOIFNEXTXORDATA<UNK! {00F8}>RESTOREREMCLSIFXOR<0xE0!><UNK! {FE80}>/<0xCB!>NEXTXORREAD<0xE0!>LINE<0x9F!>ENDSAVENEXTNEXT<UNK! {00F8}>NEXTXORCONT<0x9F!>CLS<0x9F!>NEXTMOTORCVDXOROUTSTEPXORDEFDBLKEYSWAP<0xDF!>INPUT<UNK! {00FA}>DEFSNGIFXORSTEPERASEXORLEFT$<UNK! {00F5}>STRING$IF\LLISTSTRING$XORSAVEBLOAD<UNK! {00F8}>*IF<UNK! {00F8}><0x9F!>INPUTLINE<0x9F!>BSAVE<UNK! {00FA}>CSRLINMOTOR<UNK! {00FC}>READUSRPOINTREM<0xE0!>COLORIFXOR<0x9F!>ENDLOADIFCLSFILES\<0x9F!>MOTORCVI<UNK! {00F8}>REMENDSYSTEM<UNK! {00F8}><0x9F!>ENDSYSTEM<UNK! {00F8}><0x9F!>CLSLEFT$<UNK! {00FC}>REM<0xE0!>COLORCLS<UNK! {00FC}>READ<UNK! {00F8}>REMXORREMCLS<UNK! {00FC}><UNK! {0080}>FILES<UNK! {00FC}>REM<0xE0!>NEXT<UNK! {00F8}><UNK! {0080}>XORREM<UNK! {0080}>END<UNK! {FE80}><UNK! {00FC}>READCLS<UNK! {0080}>COLORCLS<0x9F!><UNK! {0080}>XORDIMNEXT<UNK! {00FC}>END<UNK! {00F8}>READCLSLETNEXT<UNK! {00F8}>END<0xE0!><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {00FC}>"
  41. 410  A$(31)="CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTHSTOP<UNK! {0080}>WHILE<UNK! {0080}>ENDLINESTOPWIDTH<0xE2!>LET<UNK! {0080}>DATAEQVLETDIM<UNK! {0080}><UNK! {0080}>COLOR<UNK! {00F8}><0xE0!>PAINTREADXOR<UNK! {00FC}>READBLOADXOR<UNK! {00FC}>READBLOADXORSAVEREADBLOADXOR<UNK! {00FC}>READ<0xE3!>XORSAVENEXT<0xE1!><UNK! {00F8}><0x9F!>END<UNK! {00F8}>LOADREMCLS<UNK! {00FC}><0x9F!>NEXTXORLLISTREM<0xE0!><UNK! {00F8}>READBLOAD<LLISTENDXOR<UNK! {00F8}>READ<0xE0!>LOADSAVEENDXORREMREADCLSLLISTEND<0xE1!><UNK! {00F9}>READ<0xE0!>LOADLLISTLETLOADREADBLOAD<0xE1!>BLOAD<0xE0!>OPTIONSAVERESTORELLISTNEXT<0xE3!>XORWHILE<UNK! {00F8}>LLISTREMNEXTPRESETCLSXOR<UNK! {00FC}>SAVEREMNEXTCLSXORPMAPREADMOTOREQV<UNK! {00F8}>RETURNTROFFCLSMOD<UNK! {00F8}><0xE3!><UNK! {00F8}>XOROPTIONLOADRESTORECOLORLLISTREADNEXTMOTOR<0xE3!>EQV<0xE0!>XOR\OPENLPRINTRETURNPRESETNEXTEQVTAB(COLORLPRINTRETURNREAD<0xE3!>WEND<0x9F!>LPRINTPSETPRESET>TROFFSTEP=<0xE3!>MOD<UNK! {00FB}>POKEEQV<UNK! {00F8}><UNK! {00FC}>LOADSAVE<0xB6!>READ<0x9F!>REMPRESETBLOAD<0xE3!>CLS<UNK! {00F8}><UNK! {00FC}>LOADLLISTREADREAD<UNK! {0080}><0xE3!><UNK! {00F9}><UNK! {00F8}>OUTREMRESTOREMOTOR<0xE3!>EQV<UNK! {00F8}>OUTLLISTRESTORENEXT<0xE3!><UNK! {00F8}><UNK! {00F8}>RESTOREREMEND<UNK! {0080}>XOR<UNK! {00FC}>RETURNDIMREAD<0xE0!><UNK! {0080}>RESTOREREADXORWIDTHDIMLLIST<UNK! {0080}><UNK! {0080}><0x9B!><UNK! {0080}>POKE"
  42. 420  A$(32)="CLS<UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}><UNK! {0080}>LETWIDTHOUT<UNK! {0080}>=<UNK! {FE80}><UNK! {00FC}>OPTIONOPTIONOPTIONRESTOREELSEREADCALLBLOADNEXTBLOADPRESETOUTPSETPOKEOPTIONWHILESPC(CONTPSETRETURNOUTCALLSCREENPSETRETURNOUTRANDOMIZETO=RESTORELOAD<UNK! {00F9}>CONTCONT<0xE1!>PRESETRETURNWRITE>POKELINE<0xE3!>TO<UNK! {00F9}><0xE3!>DIMRESTORERANDOMIZESTRING$OUTLINE<0xE1!>BLOADOUT<0xE3!>STEPOUTPOKEWHILETAB(RANDOMIZEMOD<0xE3!>TOCLOSEPRESETLLISTOPTIONLINE<0xE3!><UNK! {00FC}>MOD<0xE3!>PRESETREAD<0x9F!>DIMLOADOUTOPTIONOPTIONXORELSE<0xE3!><0xE1!>BLOADPRESETPSETLLISTSAVELLISTLLISTDELETE<0xE1!>XORXORRANDOMIZE<UNK! {00FC}>RESTORELLISTREMREADBLOAD<0xE1!>BLOADXOR<UNK! {00F8}><0x9F!>NEXTRESTOREREMMOTORUSRRANDOMIZE<UNK! {0080}>LINE<0x9F!>CLS<UNK! {0080}><UNK! {0080}>CLSLINE<0x9F!>CLS<UNK! {0080}>GOTOSTOPLINE<0x9F!>CLS<UNK! {0080}>NEXTDATAPOKEREM<0xE0!><UNK! {0080}>WIDTH<UNK! {0080}>RESTOREREAD<UNK! {00F8}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>END<UNK! {FE80}><UNK! {0080}>STOP<UNK! {0080}><UNK! {0080}>COLORCLS<UNK! {0080}>DATA<UNK! {0080}><UNK! {0080}>READ<UNK! {00F8}><UNK! {0080}>FOREDITDIMEND<UNK! {00FC}><UNK! {0080}>LETSCREEN<UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>SOUNDFORWIDTH<0x9F!><<UNK! {0080}>DEFUSRPOKEREM<UNK! {00F8}><UNK! {0080}>RUNPOKEDIMNEXT<UNK! {00F8}><UNK! {0080}>REM<ENDMOTOR<UNK! {00FC}><UNK! {0080}>READ<UNK! {00F8}>NEXTBLOAD<UNK! {00F8}>LOADREMSTEPEND<0xE1!><UNK! {00FC}>LLISTREADPRESET<0xE0!>OUTREM<0xE3!>"
  43. 430  A$(33)="CLSMOTORDATAWIDTHSTOPSWAPSCREEN<UNK! {0080}>LINESTOPDATA<UNK! {0080}><UNK! {0080}>GOTO<UNK! {0080}><UNK! {0080}><UNK! {0080}>MOTOR<UNK! {0080}>LET<UNK! {0080}><0xE2!>DATA<UNK! {0080}><UNK! {0080}>LETCLEARSWAPDATA<UNK! {0080}>MOTORNEWPOKEENDCLSCLSLISTDATACLSFOR<UNK! {0080}>GOTOSCREENCLSEND<UNK! {0080}>LETWIDTHSTOPBSAVELET<UNK! {0080}>ENDSWAPRESUME<UNK! {0080}>ENDSTOPCLSDELETEINPUTENDSWAP<UNK! {0080}><UNK! {0080}>LETWIDTH<UNK! {0080}><UNK! {0080}>NEXT<0xE0!><UNK! {0080}>PALETTECLSREM<0xE1!><UNK! {00FC}>LLISTPOKE<0x9F!>BLOAD<0xE1!><UNK! {00F8}><0xE1!><UNK! {00FC}>OUT<0x9F!>BLOADBLOADXOR<UNK! {00F8}>SAVEREMREM<0xE1!>XOR<UNK! {00F8}>OPTIONSAVEREMREAD<0xE1!><0xE1!><UNK! {00FC}>LOADREMNEXTBLOADXORLOAD<0x9F!>READRENUM<OUTREADNEXTMOTOR<UNK! {00F8}>RETURN<UNK! {0080}>READCLS<UNK! {0080}>-<UNK! {0080}><UNK! {0080}>LET<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>NEW<UNK! {0080}>CLS<0xB4!>CLEARCONT<0xB4!><UNK! {00F8}>RUN<0xE1!>DATAINPUTDATABLOADLETFNCLEARRUN<0x9A!>DEFSTRCLSINPUTENDTRONNEWSTRING$RESUMEMOTOR<0xE0!><0xE1!>SOUNDDEFSNGERL>CSRLINDELETEEND<0xB4!>+INPUTINPUTPRINT<UNK! {0080}>ELSE"
  44. 440  A$(34)="CLS<UNK! {0080}>CLS<UNK! {0080}><UNK! {0080}>END<UNK! {0080}><UNK! {0080}>FOR<UNK! {0080}><UNK! {0080}>WIDTH<UNK! {0080}>ENDLET<UNK! {0080}><UNK! {0080}>CLSENDPOKELETWIDTH<UNK! {0080}>WIDTH<UNK! {0080}>STOPLINEENDGOSUBNEWSWAPGOTOSCREENWIDTHLETSTOPIFSPC(SWAPSOUNDKEYGOTOBSAVETROFFDATAEDITTOPOKESOUNDCLSSOUNDFORDATADATAFOR<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>CLS<UNK! {0080}>NEXT<UNK! {FE80}>BLOADXORLOADRETURNDATA<0x9F!>DIMREM<0xE1!>EQV<UNK! {00F8}>XOR<UNK! {00F8}>LLISTSTEPREADPRESETINPUT<0xE0!><UNK! {00F8}>OPTION<UNK! {00F8}>/CALL<0xE1!><0xE1!><0xE3!>MOTORPRESETPRESETREADRETURNREADLLISTOUTOUTLOADOUTLOADOPTIONOPTIONXOROPTION<UNK! {00F8}>XOREQVXOREQVXOREQVMOD<0xE2!>MOD<0xE1!><0xE1!><0xE3!>PRESET=<0xE1!><0xE0!><UNK! {00FC}>RETURNPRINTCLOSERESTOREDATADATALETCLS<UNK! {00FC}>WIDTH<UNK! {0080}>OPTIONWIDTHCLSCOLORPOKE<UNK! {0080}>LPRINTCLSSTOP<0x9F!><0xE0!><UNK! {0080}>DEFSNG<UNK! {0080}>LET<0x9F!>CLS<UNK! {0080}><UNK! {00F7}>MOTOREQV<UNK! {00F8}>LOADREMPRESETBLOADPRESET<0xE3!>XORLOADOUTLLIST<0x9F!>REMNEXTFORXOROUTLOADLLISTINPUTBLOAD<0xE0!><UNK! {00F8}><UNK! {00FC}>LOADNEXT=CLSXOR<UNK! {00FC}>DIM<UNK! {0080}>REMCLSPOKEREMXOR<UNK! {0080}>REMXORRESTOREREM<UNK! {00F8}><UNK! {0080}>NEXT<UNK! {00F8}>DIMEND<UNK! {FE80}><UNK! {0080}>SAVE<UNK! {0080}>WIDTH<0x9F!><0xE0!><UNK! {0080}>READ<UNK! {00F8}>DIMEND<UNK! {FE80}><UNK! {0080}><UNK! {FE80}>STOPREMXOR<UNK! {0080}>END<UNK! {00F8}>"
  45. 450  A$(35)="BSAVERUNENDENDNEWRESTOREREADEND<UNK! {00F8}><UNK! {00F8}>LLISTREMEQV<<UNK! {00FC}>OUTREMREADREMBLOAD<0xE1!><UNK! {00F8}>XOR<UNK! {00FC}>LLISTREMPRESETNEXT<0xE1!>XOR<UNK! {00FC}>OUTREMREADBLOADXOR<UNK! {00F8}>SAVEREMREAD<0xE1!><0xE0!><UNK! {00F8}>LLISTREMBLOADMOTOR<UNK! {00F8}><UNK! {00FC}><0x9F!>DIMREAD<0xE1!>XORSAVEOUTREMBLOAD<0xE0!><UNK! {00FC}>LINEKILLNEXTXOR<0xE1!><UNK! {00FC}>REMREAD<0xE1!>NEXT<UNK! {00F8}><0x9F!>READ<0xE3!>READ<UNK! {00F8}>LLISTREADPSETREAD<UNK! {00F8}><0x9F!>NEXTBSAVEREAD<UNK! {00F8}><0x9F!>NEXTPSETREAD<UNK! {00F8}>READ<0xE0!>USREND<UNK! {00FC}>NEXT<UNK! {00F8}>READ<0xE0!>COLOR<0xE0!><0x9F!>FORBSAVENEXTFILES<UNK! {00FC}>RUNDATANEXT<UNK! {00FC}>END<UNK! {00FA}><UNK! {0080}>REM<UNK! {00F8}>END<UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}><UNK! {0080}>FNRETURN<UNK! {0080}><POKESTOP<0xE1!>STOPLINEREMKEYTAB(<UNK! {0080}>NEXTRANDOMIZEFORREAD<UNK! {00F8}>LINE<0x9F!><0xE0!>CONT*SCREENPOKE<UNK! {0080}><0x9F!>TAB(DATA<UNK! {0080}>LLISTEND<UNK! {00F6}>STOPOUTON<UNK! {0080}><0x9F!>USRREM\<UNK! {0080}>COLORCLSENDXORLOADNEXT<UNK! {00F8}>READ<UNK! {00FC}><UNK! {0080}>MERGE<UNK! {00FC}>OPTION<UNK! {0080}>NEXTXOR<UNK! {0080}><UNK! {0080}>END<UNK! {00F8}><UNK! {0080}><0xDF!>"
  46. 460  A$(36)="<UNK! {FF80}><UNK! {0080}><UNK! {0080}><UNK! {FFC0}>END<UNK! {FE80}>CLS<0x9F!>XORNEXTXORDIMEND<UNK! {FF80}>READ<0xE0!>STOPREM<UNK! {00F8}><UNK! {0080}>LLISTRESTOREREAD<UNK! {00F8}>READRETURNREADNEXT<0xE5!>XORLOAD<0x9F!>=<0xE3!><0xE4!>REM<0xB4!>'IMP<0xE1!>BLOADDEFSNGRETURNSAVE<UNK! {00FC}>STOP=KEYSTEPLLISTDEFSTRCONTEQVMOD=INKEY$RESTORE<UNK! {00F9}>'MOD<0xE5!>BLOADLLIST<0xB6!>LOAD<UNK! {00F9}>LINE=SCREENPRESET<0xDF!>NEWRESTORE<UNK! {00FB}>CONT<UNK! {00FB}>\BLOADLLISTWENDLOAD<UNK! {00F9}>STOP=KEYSTEPLLISTDEFSTRCONT<UNK! {00FB}>CALL=SPC(DATALLIST<0xE4!><UNK! {00F9}>MERGEMOTOR=BLOADDIMSTEPNEW<0x9A!><UNK! {00FA}>LINE*<0xE1!>END<0xDF!>PSET<0x9F!>MERGE<UNK! {0080}>ON<UNK! {00F8}>ELSE<0xE1!>XORENDCOLORDATA<0x9F!>COLOR<UNK! {0080}><UNK! {00FB}>XORPRESET<UNK! {00F5}>XORREADPUT<0x9F!>STEPCLS<UNK! {FFF8}><0xE1!><UNK! {00FC}>POINTNEXT<UNK! {FFC6}>READ<UNK! {00F5}>XORREAD<UNK! {FF80}><0x9F!><0xE1!>CLSREM<UNK! {00FA}>LET<0x9F!><0xE1!><UNK! {0080}>REM<UNK! {00F8}>RESTOREREM<UNK! {00F8}><UNK! {0080}>NEXTFIELDNEXT<UNK! {00FC}><UNK! {0080}>ENDLEFT$CLS<UNK! {FFC0}><UNK! {0080}>REMXORPOKEREMXOR<UNK! {0080}>NEXT<UNK! {00FC}>NEXTEND<UNK! {FE80}><UNK! {0080}>COLOR<UNK! {0080}>LINE<0x9F!><0xE0!><UNK! {0080}>NEXT<UNK! {00FC}><UNK! {0080}><UNK! {0080}><UNK! {FF80}><UNK! {0080}>REMXORLETREAD<UNK! {00F8}>LINE<UNK! {0080}>COLORCLS<UNK! {0080}>READ\<UNK! {0080}>END<UNK! {FE80}>ENDNEXT<UNK! {00FA}><UNK! {0080}>DATACLS"
  47. 470  LENHOLD=0
  48. 480  COLOR 14,1,1:CLS
  49. 490  INPUT "Please tell me your name";UNAME$
  50. 500  IF UNAME$="" THEN 830
  51. 510  SHOW$="You are Ok!!":TEMP$="UROK":NOSHOW$="Y":GOSUB 840
  52. 520  FOR X=1 TO 2000:NEXT:CLS
  53. 530  PRINT"Who comes first, ";UNAME$;" or me";:INPUT JUNK$
  54. 540  SHOW$="I am before you, ok???":TEMP$="IM B4U OK":NOSHOW$="Y":GOSUB 840
  55. 550  FOR X=1 TO 2000:NEXT
  56. 560  CLS:INPUT "Are you having fun";JUNK$:IF LEFT$(JUNK$,1)="Y" OR LEFT$(JUNK$,1)="y" THEN 610
  57. 570  SHOW$="Uh oh!":TEMP$="FO":NOSHOW$="Y":GOSUB 840
  58. 580  FOR X=1 TO 3000:NEXT
  59. 590  SHOW$="Why, you are to!!!":TEMP$="Y UR2":NOSHOW$="Y":GOSUB 840
  60. 600  FOR X=1 TO 1000:NEXT
  61. 610  SHOW$="Oh, I am too!!!!":TEMP$="O IM2":NOSHOW$="Y":GOSUB 840
  62. 620  FOR X=1 TO 1000:NEXT
  63. 630  CLS:PRINT "Have you eaten yet today ";UNAME$;:INPUT JUNK$
  64. 640  SHOW$="Ha Ha Ha!!!  I ate for you today!!!":TEMP$="FFF  I84U2A":NOSHOW$="Y":GOSUB 840
  65. 650  FOR X=1 TO 2000:NEXT
  66. 660  SHOW$="Get ready ... here we go ....":TEMP$="":NOSHOW$="Y":GOSUB 840
  67. 670  FOR X=1 TO 2000:NEXT
  68. 680  FOR COUNT=9 TO 0 STEP -1
  69. 690  TEMP$=STR$(COUNT):COLOR COUNT+4:GOSUB 840
  70. 700  FOR X=1 TO 100:NEXT
  71. 710  NEXT COUNT:COLOR 14
  72. 720  LENHOLD=20
  73. 730  TEMP$="Hello there "+UNAME$+"!!!":GOSUB 840
  74. 740  FOR X=1 TO 1000:NEXT
  75. 750  TEMP$="You have a TALKING program from the NOCHANGE BBS!":GOSUB 840
  76. 760  FOR X=1 TO 1000:NEXT
  77. 770  TEMP$="NOCHANGE'S phone number is (404) 587-4198 in Atlanta, Georgia.":GOSUB 840
  78. 780  FOR X=1 TO 1000:NEXT
  79. 790  TEMP$="If you think this is good, call NOCHANGE because he says:":GOSUB 840
  80. 800  FOR X=1 TO 1000:NEXT
  81. 810  SHOW$="`I am an IBM BBS for YOU!!!!'":TEMP$="IMAIBM BBS 4 U":NOSHOW$="Y":GOSUB 840
  82. 820  FOR X=1 TO 1000:NEXT
  83. 830  LOCATE 17:COLOR 13:PRINT TAB(10);"Please give me a word or sentence to spell or QUIT ...";:INPUT TEMP$:GOSUB 840:GOTO 830
  84. 840  CLS
  85. 850  IF TEMP$="QUIT" OR TEMP$="quit" THEN TEMP$="Good-bye "+UNAME$+"!!!":DONE$="Y"
  86. 860  IF RIGHT$(TEMP$,1)="@" THEN CLS:REPEAT$="Y":TEMP$=LEFT$(TEMP$,LEN(TEMP$)-1)
  87. 870  IF NOSHOW$="Y" THEN COLUMN=40-(LEN(SHOW$)/2):LOCATE 12,COLUMN:PRINT SHOW$:GOTO 890
  88. 880  COLUMN=40-(LEN(TEMP$)/2):LOCATE 12,COLUMN
  89. 890  FOR X=1 TO LEN(TEMP$)
  90. 900  FOR HOLD=1 TO LENHOLD:NEXT HOLD
  91. 910  I$=MID$(TEMP$,X,1)
  92. 920  COLUMN=40-(LEN(TEMP$)/2)
  93. 930  IF NOSHOW$="Y" THEN 940 ELSE PRINT I$;
  94. 940  IF I$=" " THEN FOR HOLD=1 TO 200:NEXT HOLD ELSE GOTO 1000
  95. 950  NEXT X
  96. 960  IF DONE$="Y" THEN COLOR 7,0,0:CLS:SYSTEM
  97. 970  NOSHOW$="N":NOUSE=FRE(X$):RETURN
  98. 980  IF REPEAT$="Y" THEN FOR HOLD=1 TO ADONLY.COM    128   A 08/06/83 01:29   MULTILNK.UNP   1152   A 06/13/84 20:55<UNK! {000D}><UNK! {000A}>MONBLANK.COM    256   A 08/06/83 01:29   HELP    .DAT   1536   A 06/07/84 16:53<UNK! {000D}><UNK! {000A}>PRTSC   .COM    256   A 08/06/83 01:30   FX80    .BAS   3190   A 04/24/84 23:21<UNK! {000D}><UNK! {000A}>SDIR    .COM   
  99.